home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Technotools
/
Technotools (Chestnut CD-ROM)(1993).ISO
/
lang_oth
/
m2cmp20
/
timedate.def
< prev
next >
Wrap
Text File
|
1988-11-25
|
593b
|
26 lines
DEFINITION MODULE TimeDate;
(* (C) Copyright 1987,1988 Fitted Software Tools. All rights reserved. *)
TYPE
Time = RECORD
day, minute, millisec :CARDINAL;
(*
day = ((Year - 1900) * 16 + Month) * 32 + DayOfTheMonth
minute = minutes since midnight
millisec = milliseconds past the minute
*)
END;
PROCEDURE GetTime( VAR time :Time );
(*
get the system time
*)
PROCEDURE SetTime( time :Time );
(*
set the system time
*)
END TimeDate.